VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 13, 3, 0 sditb1PixelsClass5toolbarsditb1 %n}UTC^UTHISFORMOFORMREF BACKCOLORClick,11;)FPROCEDURE Click THISFORM.oFormRef.backcolor = RGB(255,0,0) ENDPROC oTop = 6 Left = 75 Height = 23 Width = 24 Caption = "4" Default = .F. ForeColor = 255,0,0 Name = "cmd4" sditb1cmd4 commandbutton commandbutton %n}UTC^UTHISFORMOFORMREF BACKCOLORClick,11=)HPROCEDURE Click THISFORM.oFormRef.backcolor = RGB(255,255,0) ENDPROC qTop = 6 Left = 52 Height = 23 Width = 24 Caption = "3" Default = .F. ForeColor = 255,255,0 Name = "cmd3" sditb1cmd3 commandbutton commandbutton %n}UTC^UTHISFORMOFORMREF BACKCOLORClick,11;)FPROCEDURE Click THISFORM.oFormRef.backcolor = RGB(0,0,255) ENDPROC oTop = 6 Left = 29 Height = 23 Width = 24 Caption = "2" Default = .F. ForeColor = 0,0,255 Name = "cmd2" sditb1cmd2 commandbutton commandbutton %n}UTC^UTHISFORMOFORMREF BACKCOLORClick,11;)FPROCEDURE Click THISFORM.oFormRef.backcolor = RGB(0,255,0) ENDPROC nTop = 6 Left = 6 Height = 23 Width = 24 Caption = "1" Default = .F. ForeColor = 0,255,0 Name = "cmd1" sditb1cmd1 commandbutton commandbutton oformref s ZZy%U4:%Cm.oFormbOC CfFORM BC6You must pass a form reference to create this toolbar.xB-TUOFORM BASECLASSTHISOFORMREFInit,1r!qA1)Z PROCEDURE Init #DEFINE ERR_NOFORMPARM_LOC "You must pass a form reference to create this toolbar." PARAMETER oForm IF TYPE("m.oForm")#"O" OR ISNULL(m.oForm) OR UPPER(oForm.BaseClass) # "FORM" MESSAGEBOX(ERR_NOFORMPARM_LOC) RETURN .F. ENDIF THIS.oFormRef = oForm ENDPROC toolbarfCaption = "Toolbar1" Height = 32 Left = 46 Top = 10 Width = 103 ShowWindow = 1 Name = "sditb1"